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/• Includes required •/ 
linclude <GL/gl.h> 
•include <GL/glut.h> 
•include <stdio.h> 
tt include <ppm.h> 
•include <nath.h> 

* something because of windows 
'/ 

void eprintfO { 

J 

/** 

* cur data structure of choice 
•/ 

typedef struct obj { 

/• other parameters *> 
float matrix! 16 t; 

/• view angle */ 
float viewangle; 

/• aspect ratio */ 
float aspect; 

/• 2 of the camera */ 
float cz; 

/* ry of the canera */ 
float ry; 
) Obj; 

/* hold the display lists for textures •/ 
typedef struct texture ( 

int texl; 

int tex2; 
) Texture; 

/** 

* our global variables 
*/ 

/* camera settings '/ 
Obj scene; 

/* texture stuff */ 
Texture def; 

Texture* current_texture = &def; 

/* track the next display list number */ 
int nextDLnum = 2; 

/* stuff for lighting ♦/ 

float lightPosUI = (2.0, 4.0, 2.0, 0}; 

float l:ghtDir(4l =^ (0. 0, 1.0, 1.01; 

float lightA]nbl4) = (0.4, 0.4, 0.4, 1.3)r 

float lightDiff(4) = (0.8, 0.8. 0.8, 1.0»r 

float lightSpec(4) = {0.8, 0.8, 0.8, l.OJr 

int lights = 0; 

int outsideView = 0; 

int parent; 



♦define HEMISPHERE : 
void createHemlsphere(int listNuni, int numPts, int geom) 
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* Read in the ppin files and create display lists for a texture 

• returns the dimension of the image 
•/ 

pixel **mapl, ••inap2; 
GLubyce •texl, 'texZ, ••tmpPP, *tmpP; 

void readTexture (Texture* c, char* filel, char* £ile2) ( 
FILE -fpl, •fp2j 
int cols, rows, i. j, index; 
pixval maxval; 

/* open the files •/ 
fpl = fopenffileX, TM ; 
fp2 = fopen(file2« 'r*); 
if (!fpl) ( 

fprlntf <scderr, •couldn't open %s\n", fileljj 

J 

if <!fp2) ( 

fprintE(stderr, "Couldn't open %s\n-. file2); 

) 

/* read the ppa files */ 

map 1 s ppn^r eadppm { fpl , kco 1 s « &r ows « &inaxva 1 ) ; 
fprintf (Btderr, -fcs: rows = %d \t cols » %d\n-, filel, rows, cols, maxvalj; 
niap2 =^ pE3n_readppiii(Cp2, &co1b, &rowB. Kmaxval); 

fprintf (stderr. *%b: rows = %d \t cols = %dNn-, file2, rows, cols, maxval); 
/* convert them */ 

texl = itialloc(sizeoC(GLubyte» • rows • cols • 3); 
tex2 = maXloc(sl2eoe(GLubyte> ♦ rows • cols * 3); 
index = 0; 

for (i B Of i < rows; t++) ( 

for (j = 0; j < cols; { 
/* R ♦/ 

texl (Index] = PPM_GETR(iiiapl [ij ( j) > f 
tex2( index] = PPK_GETR (iiiap2 [i] ( j ] ) f 
index 

/• G ♦/ 

lexlt index] = PPK^GETGdnapl (i} [ j J ) : 

::ex2rindex] ^ PPM_GETG (map2 (1] [ j J ) ; 
index 

/* B ♦/ 

texl [ i ndex J = PPM_GETa <mapl [ i } ( j ] ) ; 
cex2 [index! = PPM_GETB<map2 [i] I j ] ) ; 
index +t; 

) 

) 

/* create the textures */ 

/* new display list*/ 

glNewList (nextDLnum, GL_C0MPILEW 

t->texl = nextDLnum; 

nextDLnum+>; 

glTexIinage2D(GL_TEXTaRE_2D, 0, 3, cols, rows. D, GL_RGB, Gi:^UNSIGNED„BYTE, 
texl); 

glEndLlst i\: 

/* new display list*/ 
glNewLlst (nextDLnum, GL_CGMPIUE); 
t->tex2 s: nextDLnum; 
nextDLnum-f-t-; 

glTexlBiage2D(GU_TEXTURE_2D. 0, 3, cols, rows, 0, GL_RGB, GL_UNS1GNED_BYTE, 
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tex2); 

glErndList i ) t 

) 



• this will Initialize the display lists for the objects 
•/ 

void initialize.objectsant argc, char**argvj ( 
float tirptO ; 

/* read in ::he texture •/ 
readTexture(&def , argv[l]. argv(2]); 

/♦ create henisphere ♦/ 

cr eat eHeni sphered, 50, GL_TRIANGL^STRIP) ,- 
/* scene */ 

scene. viewangle = 130; 

scene. tz = 0; pja, 9C 

scene. ry = 0; 



* Clear the screen, draw the objects 
*/ 

void display () 
{ 

float tn>p[4) ; 
float height; 

/* clear the screen */ 

SlCleat(GL_COU)ICBUFPER_BIT I GL4.DEPTH_BUFFER_BIT) ; 

/* adjust fcr scene orientation */ 
glMatrixMode (Gl^PROJECTICN) : 
if (outsideView) ( 
glLoadlden- ity ( ) ; 

gluPerspecc ive (45, scene. aspect. 0.1, 10.0); 
glTranslatef (0, C, -3); 
glRotatefUS. 1. 0, OJ; 
glRotatefUS. 0, 1, 0); 
glDisable(GL_TEXTURE_2D) ; 
glColor3tLB, .8, .6); 
) else { 

glLoadldentity n ; 

9 lu Per spec cive< scene. viewangle, scene. aspect , C.i, 10.0) 
glTranslatef (0« 0, scene. tzi; 
glRotatef i scene. ry, 0, 1. Oi; 

) 

/* draw our models */ 
glMatrixMode (GL.MODELVIEK) ; 
gLPushMacrixO • 

if (outsideview) ( 

J* transform to where the camera would be */ 
glPushMotrlx I ) ; ^ 

/• draw a cube for the camera */ 
glLoadldenc ity { ) ; 
glRotatef tiaO. 1, 0, 0); 
glTranslatef to, 0, scene. tz); 
ta«ptD] = tmpUl = tnip[2) = .8; 
tirp{3J = I; 



OlMaterialfv(Gl4_FRONT-AND_BACK, Gl4_SPECULAR, tmp) ; 
glMaterialf (GL_FROPrr_AND_BACK , GL.SH IN INES S * 0.0); 
glMflterialfv<Gr^FROWr^D_aACK, GlLAMBIENT_Jl«D_DirFaSE, ttnp) j 

glutSoli<iCabe(.l); 

/* draw a cone for the view fruaitrum */ 

glLoadldentity () j 

height = 1 - scene. tz; 

glRotateCUS* 0, 0, 1); 

glTranslatef (0« 0, -I); 

tnp[0] s tmp[It = 1; 

tlDp[2} = 0; 

tjrpI3] = .3; 

glHaterialfv<GU-FRONT_AND„BACK, GLu.SPBCULAR. tmp) ; 
glMaterialf (GL_rROOT_ANDJACK, GL_SHININESS. 0.0) j 
glMaterialEv<GJ^_FR01W,J^D_BACK. GI^AMBrEKT_J\ND_DIFFUSE, tnp) j 
glutSolidCone( can ( scene. viewangle ♦ 3.14 / 360.0) * height, height, 20, 1] 
glPopHatrixn \ 
glEnable(GL^TE3(TORE_2D) ; 



/* now draw the seniisphere */ 

If (lights! { p,. 

tmpIO) = tinp[l] ^ tinp(2| = .8; Tig. Vli 

tir(p(31 = .8? 

giMaterialEv(GL_FROMT_>ND_BACK, Gl4_SPECULAR. Crop); 
glMaterialC{GL4_FR0NT_ANDJBACK. GL_SHINXNESS, 10. 0); 
glKaterialEv(GL_FRONT^D_BACK, GL_AMBrENT^O_DIFPUSE, trop) ; 



glCallList (current_texture->texl) ; 
glCallList (HEMISPHERE) ; 



if aighcsl i 

tmptO] c tinpll] = cmptZ) .5; 
tirpt3J = .5; 

g iMa t e r ia 1 £ V ( GL_FR0NT_AND_BACK , ou^s PECULAR . crap ) ; 
glMaterialf (Gk-FRONT_AND_BACK, GL_SHININ£SS. 10. 0); 
gLMaterialfv(GL_FRONT_AND„BACK< GL^JlMBrENT^ND_DIFFUSE, trap); 

} 

glRotatef (ISO.O, 0.0, 0.0. 1.0); 
glCal iList (current_texture->tex2 ) ; 
glCallLi St (HEMISPHERE) ; 
glPopMatrixO ; 



fprin::f (stderr, "is^.n", gl'JErrorString (glGetError ( ) » ) ; 
glutSwapBuff er5( ) ; 

) 



/* 

* Handle Menus 
•/ 

ffdefine M_ourT l 
void Select (int value) 
I 

switch (value] ( 
case M_QUIT: 

exit (0) ; 

break; 

) 

glut Post Redisplay ( ) ; 

) 

void create_inenu(J { 

fprintf fstderr, "Press ? for helpXW}: 



glutCreateMenu<Select) ; 
gliitAddMenwEntryCQuiC, M_QOITJ; 
glUtAtCQchMenu<GLCJT_RIGHT„BUTTON) ; 



/• Initializes hading model ♦/ 
void ray Init (void) 



glEnable(GL_DEPTH_TESr) ; 



Fig. 9E 



glShadeModel (GL_SmOOTH) ; 
/• texture stuff */ 

glPixelStorei (GL_UNPA:k^LIGNMENT, sizeof (GLubyteJ ) ; 
glTaxParameterf {GL_TEXTURE^2Dr GI<_TeXTURE_WRAP_S, GU_CLAMP) ; 
glTexParanieterf (GU„TEXTURE_2D, GU_TEXTURE_WRAP_T, GLl_CLAMP> ; 
gXTexParanieterf (GL_TEXTDRE_2D, GL_TEXTURE_|4AG_riLTER, GL_NEAREST) r 
gZTexParameterf (GL^TEXTURE_2D, GU_TEXTORE^mU_FlvrER, Gl^NEAREST); 
g ITexEnv £ < Gl-_T EXT U RE_ENV , G L_TEXTURE^ENV_MODE , GL_DECAL ) ; 
glEnable{GL_TEXTURE_:D) ; 



/* 

* Called when the windcw is first opened and whenever 
the window is reconfigured (moved or resized). 

•/ 

void iBvReshapednt w. int h) 
( 

glViewport (0, 0, w, h) ; /• define the viewport */ 

Gcene.a&pecc = 1 . 0* {CLf loat )w/ tGLf loaclh; 
glMat rijcMode (GL^PROJlCTtON) ; 
glLoadidenticy ( i ; 

gluPerspectiveiscene.viewangle, scene. aspect , 0.1, 10.0); 
glMultMatrixf (scene. nattix) ? 

glMatri^dKode (GL_^0DILV1ew) ; /* back to modelview matrix */ 



* Keyboard handler 
♦/ 
void 

Key tuneigned char key. i»t x, int y) 
( 

float n^tcix( L6] ; 
glMatriHMode (GL.MODEWIew) ; 
glGetFl<iacv(GL_MODELVIEW„MATFlX, matris?) ; 
glLoadlaentity () ; 

fprint f fstderr, "%d • %c key, key} i 
switch ikey) [ 
case 'o' : 



if I loutSLdeView { 

fprintf (stderr, -outside on *); 
oatsldeView = 1; 

/* turn on blending */ 
glEnable(GL_3LEHD) t 

glBlendrMnc (5L_SRC_ALPHA, GUJDHe^imJS^SPC^LPUA) ; 
/•We want See color •/ 

glTexEnvf (GL_TEXTURE_E2W, Glv-TEXTUREL.ENV_MODE, GL^HODUIATE) ; 

/* turn on oar spotlighc •/ 
glEnabletGL_^lGHTl) j 

glUightfv(GULlGHTl. GL^BIENT< lightAmb); 





glLlghtCv(GL_LIGHTl, GX^_DIFFUSE. llghtDief); 
glLightfv(GU_LlGHTl, GL«SPECUtAR» lightSpeOj 
glLightfv(GL^LIGHTl. GL_St>OT_DIRECTI0N, lightDirl ; 
) else ( 

Sprint f (stderr, "outside off "),• 
outsideVlew = 0; 

g 1 TexEnv £ (GLl.TEXTUR^ENV , GL_TEXTtmE_ENV_MOElE, GL_DECAL ) ; 
glOisable(GI^_BLEND) ; 

) 

break; 
case ' F* : 

fprintf (stderr, -flat 
glshadeModel (G1a_FLAT) ; 

break! Fig. 9F 

case ' f * ; 

fprinti (etderr, "smooth •); 

glShadeModel i GL.SMOOTK ) j 

break; 
case 'y • : 

princf("ry = %f\n", scene. ry>; 

scene. ry -= 5; 

break ; 
case 'Y': 

scene. ry «■= 5; 

break ; 
case * z • : 

scene. tz -r ,02; 

Cprint£(8tderr, " tz = %f scene. tz); 
break ; 
case *Z* : 

scene. tz 4= .02; 

fprintf (stderr, " tK = %f scene. tz); 
break; 
case 'a'; 

scene. viewangle -= 1; 

fprintf fatderr, " angle r %f scene. viej^angleJ ; 
break; 
case *A*; 

scene. viewangle Ir • 

fprintf Utderr, 'angle: %f scene .vlewangle) ; 

break; 
case 55: 

glRotaceC (-5, G.O. 0.0, l.O); 

break; 
case 57: 

glRotatetCS, 0.0, 0.0, 1.0); 

break; 
case 52: 

glRotatet(-5, 0.0^ 1.0, 0.0); 

break; 
case 54: 

glRotatet(5. 0.0, 1.0, 0.0>; 

break; 
case 56; 

glRotate£(5. 1,0, 0.0. O.O); 

break; 
case 50: 

glRotatef 1.0, 0.0, 0.0); 

break; 
case 'q*: 

if Uights) t 

glDi6able(GL_LlGHT0) ; 
glDieAble(GL_LIGHTlNG> ; 

lights = 0; 

fprint£<stderr, "no lights ■>; 



> else { 

glEnable fGU^LIGHTING) ; 
glEnable IGL^-LIGHTO) ; 

glLight£v(GL_LIGH?0, GL^POSITION, lightPOB); 
glLight£v(GL_LIGHTO. Gl^Af4BIENT. lightAjrl)) ; 
glLightfv(GL_UGHTO, CU-DIFFUSE, lightDiff); 

Gt^SPECULAR, llghtSpeOr 



g iLi ght f V (Gt.LlGHTO , 
lights = 1; 

fprint f (stderr. "lights 



} 



break; 
case ' t ' : 

fprincf Cstderr, "texture off 

glDisabletGL_TEXTURE_2D) ; 

break ; 
case 'T': 

fprint £ {Btderr, "texture on 

glEnable (GL_TEXTURE_2D> ; 

break; 
case ' ?* : 

fprintf (stderr, 

fprintf (stderr, 

fprintf (stderr, 

fprintf (stderr, 

fprintf (stderr, 

fprintf (stderr, 

break; 
case 27: 

exit a ) ; 

break; 
default: 

fprintf (stderr 

break; 

) 

fprintf ^stderr. "\n"); 
glMultMatrixf (matrix) ; 
glutPostRedisplay () ; 



"); 



•>; 
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"hjJcl - rotate current object\n">; 

"s/S - shrink / grow the object or zoom the sceneVn"); 
"a/A viewangleVn") ; 
*T/Z camera positionNn" ) ; 
•f/F flat smoothVn-); 
•Escape (jults \n") ; 

/♦ Esc will quit •/ 



•Unbound key - ftd 



keyj; 



int 



Main Loop 

Open window with initial window size, title bar, 
RGBA display moder and handle input events. 

me in (int argc, char** argv) 

glutlnit (frargc. argv) ; 

glutlnitDisplayMode (GLUT_DOUBLE I GLUT_RGBA) ; 
parent := glutCreareWindow (argv[0]}; 
Biylnit () ; 

glutKeyboardFunc (Key) ; 
glutReshapeFunc fm/Heshape) ; 
glutDisplayFunc(display ] ; 
create_nienu ( ) ; 

initiali2e_objects{argc« argvK' 
glutMainLoop{ ) ; 




*ifdef WINDOWS 

i include <window5.h> 

lendif 

fl include <GWgl.h> 

((include <GL/gluL.h> Fig. lOA 

fl include "warp.h" 
llinclude <stdio.h> 
/•• 

♦ Triangulace a hemisphere and texture coordinates. 

* liscNurn - display list number 

* nujnPts - nunber of points to a side 

♦ return the display list 
V 

void createHemisphere(int listNura, int nuraPts, int geom) ( 
double incr =1.0/ numPts? 
double u< V, y. z; 
£loat tx, tz; 
int i, j; 

/* start the display list •/ 

glNewList 1 1 : StNum, GL_COMPILE_AND_ EXECUTE} ; 

/• create the coordinates */ 

/* use the square to circle map •/ 

/* across then down */ 

V - 0; 

for (j = 0; j < noroPts ; j + ( 
/* start the tri strip */ 
glBegin [geosnl ; 
u = G,- 

£or <i = 0; i <= numPts; i++J ( 
/♦do Che top point •/ 
/* get the XYZ coords */ 
maplu, V, &x, &y, &z) ; 

/* create the texture coord */ 
tx = X / 2 + .5; 
tz = z / 2 + .5; 

if rtx > 1.0 II tz > 1.0 II tx < 0.0 II tz < O.OJ I 
printfCnct in range %f %f\n", tx. tz); 

) 

glTexCoord2f ftx, tz); 

/* nsrmal */ 
glNormal3£(x, y. z); 

/* create the coord */ 
glVertex3£ (X, y, z) ; 

/* get the XYZ coords */ 
maptu, V -» incr, &x, fcy, tz); 

/• create the texture coord •/ 
tx r X / 2 + .5; 
tz = 2 / 2 + .5; 

if £tx > l.C II tz > 1.0 I I tx < 0.0 I I tz < 0.0) ( 
printfCnct in range %f %f\n-, tx, tz); 

> 

glTexCQord2£ (tx. tz) ; 

/• normal ♦/ 
glNormal3f (X. y. z); 



/♦ create the ccord */ 



9lVercex3£(x, y, zj; 

/♦ adjust u */ 
u incr; 

) 

/* done with the list ♦/ 
glEndO ; 

/• adjust V •/ 
V ♦= Incr? 

) 

/* all done with the list */ 
glEndLlst () ; 

} 
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